10 SYS57812"SHOOT.FNT",8,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
20 SYS57812"SHOOT.SPR",8,0:POKE780,0:POKE781,64:POKE782,3:SYS65493
30 SYS57812"SHOOT.SRT",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
50 PRINT"[147]":GOSUB640
60 TT$=" ABCDEFGHIJKLMNO [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] !(#$%&'()*+,-./ ":POKE53272,31
70 C=54272:FORN=CTOC+23:POKEN,0:NEXT:POKEN,24
80 POKEC+5,13:POKEC+6,155:POKEC+4,33
90 POKE53281,0:POKE53280,0
100 FORI=0TO7:POKE820+I,0:NEXT
110 PRINT"[149]";:FORN=2TO7:PRINT""SPC(N)TT$"[145]"
120 POKEC+1,N*2:FORR=1TO100:NEXT:FORR=N*2TON*2+30:POKEC+1,R:FORW=1TO2:NEXT:NEXT
130 NEXT
140 PRINT""SPC(32)"BY"
150 FORN=96TO109:POKE1114+N,N:POKE1114+N+C,3:POKEC+1,120-N:FORR=1TO60:NEXT:NEXT
160 PRINT""SPC(29)"A GAME OF":PRINTSPC(30)"HEARTS!"
170 POKEC+1,0
180 PRINTTAB(27)"[159]INSTRUCTIONS?"
190 PRINTTAB(29)"Y[159]ES OR N[159]O"
200 GETA$:IFA$<>"Y"ANDA$<>"N"THEN200
210 IFA$="N"THEN610
220 PRINT"[147]"SPC(12)TT$
230 PRINTSPC(13)"INSTRUCTIONS"
240 PRINT" THE OBJECT OF THIS GAME IS TO TAKE THE
250 [153]" LEAST NUMBER OF HEARTS OR TO TAKE THEM
260 PRINT" ALL.  A HEART IS TAKEN BY WINNING THE
270 [153]" TRICK IN WHICH IT IS PLAYED.  A TRICK
280 PRINT" IS TAKEN BY PLAYING THE HIGHEST CARD
290 [153]" IN THE SUIT THAT IS LED.  WHOEVER WINS
300 PRINT" THE TRICK LEADS THE NEXT ONE.  YOU
310 [153]" MUST FOLLOW SUIT IF YOU CAN.  IF NOT -
320 PRINT" YOU MAY PLAY ANY CARD.  THE DEUCE OF
330 [153]" CLUBS IS ALWAYS THE FIRST CARD LED.
340 PRINT" HEARTS CANNOT BE LED UNTIL A HEART HAS
350 [153]" FALLEN ON A TRICK.  TO 'SHOOT THE
360 PRINT" MOON', YOU MUST TAKE ALL OF THE HEARTS
370 [153]" AS WELL AS THE QUEEN OF SPADES, WHICH
380 PRINT" COUNTS AS 13 POINTS.  EVERYONE ELSE
390 [153]" WILL SCORE 26 POINTS IF YOU DO.  LOW
400 PRINT" SCORE WINS.  THE GAME IS OVER WHEN ONE
410 [153]" PLAYER REACHES 100 OR MORE POINTS.
420 PRINT"         [158]PRESS A KEY TO CONTINUE":POKE198,0
430 GETA$:IFA$=""THEN430
440 PRINT"[147]"SPC(12)TT$
450 PRINT" ON THE FIRST HAND YOU WILL CHOOSE
460 [153]" THREE CARDS TO PASS TO THE LEFT.  THE
470 PRINT" NEXT HAND YOU'LL PASS TO THE RIGHT -
480 [153]" THEN ACROSS, THEN YOU WILL KEEP AND
490 PRINT" PLAY WITH THE CARDS YOU HAVE.
500 [153]" YOU HAVE SOME OPTIONS.
540 PRINT" [159]1) YOU MAY PLAY WITH THE JACK OF
550 [153]"    DIAMONDS COUNTING AS -10 POINTS.
552 PRINT"    IN OTHER WORDS, YOU [153]WANT TO TAKE
554 [153]"    THE JACK IF YOU CAN.
560 PRINT" [159]2) YOU MAY HAVE THE NUMBER OF TRICKS
570 [153]"    OR THE NUMBER OF HEARTS DISPLAYED
580 PRINT"    IN THE BOXES BELOW THE HANDS.  IF
582 [153]"    YOU CHOOSE TO DISPLAY TRICKS THEN
584 PRINT"    YOU'LL HAVE TO REMEMBER WHO HAS
586 [153]"    TAKEN HEARTS AND WHO HASN'T.
590 PRINT"  [158]PRESS A KEY TO LOAD SHOOT THE MOON":POKE198,0
600 GETA$:IFA$=""THEN600
610 PRINT"[147][144]LOAD"CHR$(34)"SHOOT.MAIN"CHR$(34)",8"
620 PRINT"RUN"
622 PRINT"[159]        LOADING [150]SHOOT THE MOON[144]"
625 POKE787,0
630 POKE44,64:POKE43,1:POKE16384,0:POKE631,13:POKE632,13:POKE198,2:END
640 POKE214,15:PRINT
650 PRINT"  [155]                                    "
660 PRINT"   [146]                                   "
670 PRINT"   [146]         SHOOT THE MOON!           "
680 PRINT"   [146]   BY WILLIAM SHOCKLEY (C) 1989    "
690 PRINT"   [146]     PUBLISHED ON LOADSTAR 61      "
700 PRINT"   [146]   SUBSCRIPTIONS 1-800-831-2694    "
710 PRINT"   [146]  CHANGING THIS NOTICE IS ILLEGAL  "
720 PRINT"   [146]                                   "
730 PRINT"                                      "
740 QQ$="                       "
750 FORI=0TO13:PRINTQQ$:NEXT:PRINT""
760 RETURN
10000 OPEN15,8,15,"S0:SHOOT BOOT":SAVE"SHOOT BOOT",8